home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 December / Ahoy_Magazine_87-12_1987_Double_L.d64 / Word Processor (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  473b  |  25 lines
  1. 10 dima$(200):poke53280,0:poke53281,0
  2. 20 print"[147]"
  3. 30 print"             word processor"
  4. 40 print"             by kevin ashby"
  5. 50 fort=1to3000:next:print"[147]"
  6. 60 forf=1to200
  7. 70 inputb$
  8. 80 a$(f)=b$
  9. 90 poke53280,2:poke53281,2:forh=1to100:getr$
  10. 100 if r$="p"then 140
  11. 110 nexth
  12. 120 poke 53280,0:poke53281,0
  13. 130 nextf
  14. 135 print"sorry no more space would you like to print":inputy$
  15. 137 if y$="y"then 140
  16. 138 if y$="n"then end
  17. 139 goto 135
  18. 140 open1,4:cmd1:forf=1to200
  19. 150 print a$(f)
  20. 160 if a$(f)="" then print#1:close1:goto175
  21. 170 next
  22. 175 poke 53280,0:poke53281,0
  23. 176 clr
  24. 180 goto 10
  25.